La Ola-Welle

Version Stand
02.11.2020
Andreas Jäger

Stand

t =

f =

Welle

Einmal

Periodisch

l =

T =

w = 2.7 (slider from 0.25 to 5, step 0.01)
A = 1.5 (slider from 0 to 2, step 0.1)
t = 0 (slider from 0 to 12, step 0.001)
body = Sequence(Polygon[(i - 0.2, 0.2), (i + 0.2, 0.2), (i, 1.3)], i, 0, 10)
b = false
Eingabefeld1 = Textfield(t)
Eingabefeld2 = Textfield(w)
armL = Sequence(Segment[(i, A - 0.3), (i - 0.3, A - 0.75 + (4 * Max[0, (0.2 * A) - (w * (t - i)^(2))]))], i, 0, 10)
armR = Sequence(Segment[(i, A - 0.3), (i + 0.3, A - 0.75 + (4 * Max[0, (0.2 * A) - (w * (t - i)^(2))]))], i, 0, 10)
kopf = Sequence((i, A + Max[0, (0.2 * A) - (w * (t - i)^(2))]), i, 0, 10)
kopfRot = Sequence(If[i - 0.2 ≤ t ≤ i + 0.2, (i, A + Max[0, (0.2 * A) - (w * (t - i)^(2))])], i, 0, 10)
a = true
f(x) = (1.8 * ℯ^(((-2 * w) * (x - t)^(2))))
bEin = true
l = 4.69 (slider from 3.5 to 7, step 0.01)
k: 1 / l
T = 3 (slider from 2 to 4, step 1)
bWel: false
l2 = Sequence(Segment[(i, A - 0.3), (i - 0.3, A - 0.3 + (0.4 * sin(((2 * π) * (t / T + i / l)))))], i, 0, 10)
l3 = Sequence(Segment[(i, A - 0.3), (i + 0.3, A - 0.3 + (0.4 * sin(((2 * π) * (t / T + i / l)))))], i, 0, 10)
l1 = Sequence((i, A + (0.3 * sin(((2 * π) * (t / T - i / l))))), i, 0, 10)
g(x) = A + (0.3 * sin(((2 * 3.1415) * (t / T - x / l))))
Eingabefeld3 = Textfield(l)
Eingabefeld4 = Textfield(T)
l4 = Sequence(If[i - 0.2 ≤ (l * (t / T - 1 / 4)) ≤ i + 0.2, (i, A + (0.3 * sin(((2 * π) * (t / T - i / l)))))], i, 0, 10)
c = Max({0, (0.2 * A) - (w * (t - ί)^(2))})